#!/usr/local/bin/perl5
	
	foreach $key (sort keys %ENV)
	{
		printf "%-30s\t\t%-50s\n",$key,$ENV{$key};
	}
	
